home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 47 / MOBICLIC 47.ISO / mac / DATA / COMMUNS / MENUBG.DIR / 00033_Script_BOUCLE_INITIALE < prev    next >
Text File  |  2002-07-23  |  652b  |  22 lines
  1. global validMBG,rollMessBG,fermeMenuBG, ouvreMenuBG
  2. global  gNbStamps, gfirstStampTrackNo
  3. -----------------------------------------------
  4. on exitFrame
  5.   set r = rollOver()
  6.   repeat with i=gfirstStampTrackNo to gfirstStampTrackNo + gNbStamps - 1
  7.     zeNoItem = i - gfirstStampTrackNo + 1
  8.     if rollOver(i) and validMBG[zeNoItem]=1 then
  9.       member("item").text = string(i)
  10.       rollMessBD = member("menuBGMsg").line[zeNoItem]
  11.       go frame string(zeNoItem+1)
  12.       exit
  13.     end if
  14.   end repeat
  15.   rollMessBG  = "nul"
  16.   if r<>0 then
  17.     go the frame
  18.   else
  19.     fermerMenu
  20.   end if
  21. end
  22. ---------------------------------------------